MsgBox "To demonstrate the '(Get) pvtListBoxSelectedObjects' method, there are " & tempCollection.Count & " selected items:" & vbCrLf & tempNameList & vbCrLf & vbCrLf & "The first of these selected entries will be unselected to demonstrate the '(Set) pvtListBoxSelectedObjects' method."
tempCollection.Remove 1
Set pvtPersonsListBoxWrapper. _
SelectedObjects = tempCollection
End Sub
Private Sub efFormattedAddress_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
DisplayStateCapital
End Sub
Private Sub efFormattedName_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
DisplayPersonalLineage
End Sub
Private Sub Form_Load()
Set pvtStates = _
pubStates
Set pvtGenderCodes = _
pubGenderCodes
Set pvtMaritalStatusCodes = _
pubMaritalStatusCodes
Set pvtPersons = _
pubPersons
GetListBoxWrappers
RefreshCustomerList
List1_Click
RegisterForEvents
End Sub
Public Sub ObjectEventCallBack(Optional Event As Variant, Optional Object As Variant)
Dim tempObjectType As String
Dim tempUCaseEvent As String
On Local Error Resume Next
tempObjectType = TypeName(Object)
tempUCaseEvent = UCase$(Event)
If tempObjectType = "Person" Then
If tempUCaseEvent = "REMOVEDITEM" _
Or tempUCaseEvent = "REPLACEDITEM" _
Or tempUCaseEvent = "CHANGED" _
Then
RefreshCustomerList
If Object.ObjectID = pvtCurrentPerson.ObjectID Then
RefreshCustomerFields
End If
End If
End If
If tempObjectType = "Address" Then
RefreshAddressFields
End If
If tempObjectType = "Phone" Then
RefreshPhoneFields
End If
End Sub
Private Sub RefreshAddressFields()
On Local Error Resume Next
If pvtCurrentAddress Is Nothing Or Err = 3021 Then
